Function FileExists(Name : String) : boolean;
Var  aFile : File;
Begin
  {$I-}
  Assign(aFile,Name);
  Reset(aFile);
  {$I+}
  FileExists:=(IOResult=0) and (Name<>'');
  Close (aFile);
End;

Procedure OpenFilePedidos(Var FileAsociated:FilePedidos);
Const
    FileName = 'Pedidos.dat';
Begin    
    Assign(FileAsociated,FileName);
    If (FileExists(FileName)) Then
        Reset(FileAsociated)
    Else
        Rewrite(FileAsociated);
End;

Procedure OpenFilePedidosTemporal(Var FileAsociated:FilePedidos);
Const
    FileName = 'Pedidos-Temporal.dat';
Begin    
    Assign(FileAsociated,FileName);
    If (FileExists(FileName)) Then
        Reset(FileAsociated)
    Else
        Rewrite(FileAsociated);
End;

Procedure OpenFilePedidosReparados(Var FileAsociated:FilePedidosReparados);
Const
    FileName = 'Reparaciones.dat';
Begin    
    Assign(FileAsociated,FileName);
    If (FileExists(FileName)) Then
        Reset(FileAsociated)
    Else
        Rewrite(FileAsociated);
End;

Procedure OpenFileRepuestos(Var FileAsociated:FileRepuestos);
Const
    FileName = 'Repuestos.dat';
Begin    
    Assign(FileAsociated,FileName);
    If (FileExists(FileName)) Then
        Reset(FileAsociated)
    Else
        Rewrite(FileAsociated);
End;

Procedure InicializarPedido(Var UnPedido : Pedido);
Begin
	UnPedido.Numero := 0;
	UnPedido.Fecha := '';
	UnPedido.Electrodomestico := '';
End;

Procedure InicializarRepuesto(Var UnRepuesto : Repuesto);
Begin
	UnRepuesto.Codigo := 0;
	UnRepuesto.Descripcion := '';
	UnRepuesto.Cantidad := 0;
End;

Procedure InicializarReparados(Var NuevaReparacion : PedidoReparado);
Var
	RepuestosUsados : Repuesto;
	I,Longitud : Integer;
Begin
        InicializarRepuesto(RepuestosUsados);
        Longitud := Length(NuevaReparacion.RepuestosUtilizados);
        
        For I:=1 To Longitud Do
                NuevaReparacion.RepuestosUtilizados[i] := RepuestosUsados;

End;


